Garbo/Garbo.cdr/mac/technote/tchntstc.sit/Technical Notes Stack 3.2.1/Technical Notes Stack 3.2.1/background_20600.txt

Text File | 1990-01-08 | 6.9 KB | 329 lines

-- background: 20600 from stack: in.1
-- bmap block id: 23457
-- flags: 0000
-- background id: 0
-- name: Opening Cards
----- HyperTalk script -----
on closeBackground
  -- let the stack be modified
  -- this is set on the openCard handlers of the respective cards
  set cantmodify of this stack to false
end closeBackground

-------------------
-- arrowKey handler for Opening Cards bg
-------------------
on arrowKey key
  if key is "right" then
    goNext
  else if key is "left" then
    goPrev
  else if key is "up" then
    pass arrowKey
    exit arrowKey
  else if key is "down" then
    pass arrowKey
    exit arrowKey
  end if
end arrowKey

-----------------
-- goNext handler for Opening Cards bg
-----------------
on goNext
  if the optionKey is "down" then
    visual effect wipe left
    go next card
  else -- no option key down
    exit goNext
  end if
end goNext

-----------------
-- goPrev handler for Opening Cards bg
-----------------
on goPrev
  if the optionKey is "down" then
    visual effect wipe right
    go prev card
  else -- no option key down
    exit goPrev
  end if
end goPrev


-- part 3 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=228 top=316 right=341 bottom=253
-- title width / last selected line: 0
-- icon id / first selected line: 111 / 111
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  send mouseUp to cd fld "Help Arrows"
end mouseUp


-- part 4 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=178 top=316 right=341 bottom=214
-- title width / last selected line: 0
-- icon id / first selected line: 121 / 121
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Index
----- HyperTalk script -----
on mouseUp
  if the icon of me = "121" then
    send mouseUp to cd fld "Help Go Index"
  else
    if the icon of me = "122" then
      send mouseUp to cd fld "Help Index"
    end if
  end if
end mouseUp


-- part 5 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=137 top=316 right=341 bottom=173
-- title width / last selected line: 0
-- icon id / first selected line: 119 / 119
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Subject
----- HyperTalk script -----
on mouseUp
  if the icon of me = "119" then
    send mouseUp to cd fld "Help Go Subject"
  else
    if the icon of me = "120" then
      send mouseUp to cd fld "Help Subject"
    end if
  end if
end mouseUp


-- part 6 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=55 top=316 right=341 bottom=91
-- title width / last selected line: 0
-- icon id / first selected line: 115 / 115
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Number
----- HyperTalk script -----
on mouseUp
  if the icon of me = "115" then
    send mouseUp to cd fld "Help Go Number"
  else
    if the icon of me = "116" then
      send mouseUp to cd fld "Help Number"
    end if
  end if
end mouseUp


-- part 7 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=3 top=316 right=341 bottom=39
-- title width / last selected line: 0
-- icon id / first selected line: 106 / 106
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Home
----- HyperTalk script -----
on mouseUp
  send mouseUp to cd fld "Help Home"
end mouseUp


-- part 8 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=257 top=316 right=341 bottom=282
-- title width / last selected line: 0
-- icon id / first selected line: 113 / 113
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  send mouseUp to cd fld "Help Arrows"
end mouseUp


-- part 10 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=324 top=316 right=341 bottom=349
-- title width / last selected line: 0
-- icon id / first selected line: 125 / 125
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Illustration
----- HyperTalk script -----
on mouseUp
  send mouseUp to cd fld "Help Illustrations"
end mouseUp


-- part 11 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=354 top=316 right=341 bottom=379
-- title width / last selected line: 0
-- icon id / first selected line: 130 / 130
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: GoNote
----- HyperTalk script -----
on mouseUp
  send mouseUp to cd fld "Help GoNote"
end mouseUp


-- part 12 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=384 top=316 right=341 bottom=409
-- title width / last selected line: 0
-- icon id / first selected line: 129 / 129
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find
----- HyperTalk script -----
on mouseUp
  send mouseUp to cd fld "Help Find"
end mouseUp


-- part 13 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=444 top=316 right=341 bottom=469
-- title width / last selected line: 0
-- icon id / first selected line: 131 / 131
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print
----- HyperTalk script -----
on mouseUp
  send mouseUp to cd fld "Help Print"
end mouseUp


-- part 14 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=414 top=316 right=341 bottom=439
-- title width / last selected line: 0
-- icon id / first selected line: 127 / 127
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Disk
----- HyperTalk script -----
on mouseUp
  send mouseUp to cd fld "Help Save"
end mouseUp


-- part 15 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=474 top=316 right=341 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 7417 / 7417
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Back
----- HyperTalk script -----
on mouseUp
  send mouseUp to cd fld "Help Back"
end mouseUp


-- part 16 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=294 top=316 right=341 bottom=319
-- title width / last selected line: 0
-- icon id / first selected line: 108 / 108
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  help
end mouseUp


-- part 19 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=96 top=316 right=341 bottom=132
-- title width / last selected line: 0
-- icon id / first selected line: 117 / 117
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Date
----- HyperTalk script -----
on mouseUp
  if the icon of me = "117" then
    send mouseUp to cd fld "Help Go Date"
  else
    if the icon of me = "118" then
      send mouseUp to cd fld "Help Date"
    end if
  end if
end mouseUp